(define fact
  (lambda (x)
    (if (eq? x 0)
      1
      (* x (fact (- x 1))))))
(print (fact 5))
